Opgelost Alleen lezen

[lsc.b]

Is het mogelijk op op een pc met naam gebruiker dat die in een bestand kan werken
En andere pc's in het netwerk altijd alleen lezen is ..zo ja hoe

 

[edmoor]

Zet het bestand voor anderen dan de bedoelde gebruiker op Alleen lezen en geef alleen de bedoelde gebruiker meer toegang.

 

[lsc.b]

Beste edmoor zou dit ook via een vba code kunnen om een sheet op lezen te zetten

 

[edmoor]

Het gaat dus niet om een bestand maar om een werkblad.
Dat kan met:

Sheets("Blad1").Protect = "Een wachtwoord")

 

[lsc.b]

Oke maar ik wil eigenlijk dat 1 pc eigenaar er wel in kan werken zonder wachtwoord

 

[edmoor]

De methode met wachtwoord geldt voor het betreffende blad in document, niet per gebruiker.
Gebruik daarvoor de methode die ik in #2 noemde.
Dit geldt dan voor het hele document.

 

[lsc.b]

Oke bedankt zover

 

[snb]

Je kunt ook het opslaan uitschakelen op basis van de inlognaam van de gebruiker.

 

[emields]

Opgelost?

 

[lsc.b]

Nog niet helemaal nieuwe ideeën zijn nog welkom eigen pc moet het bestand kunnen bewerken andere in het netwerk mogen dat niet als het anders kan graag meer informatie

 

[edmoor]

Oke maar ik wil eigenlijk dat 1 pc eigenaar er wel in kan werken zonder wachtwoord

Dan doe je toch dit?

Private Sub Workbook_Open()
    If Environ("Username") = "lsc.b" Then
        For Each sh In ThisWorkbook.Sheets
            sh.Unprotect "Je wachtwoord"
        Next sh
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    For Each sh In ThisWorkbook.Sheets
        sh.Protect "Je wachtwoord"
    Next sh
End Sub

Of je doet wat ik in #2 al zei.

 

[lsc.b]

Ik ga het van de week uitvoeren en als het goed gaat
Dan sluit ik het onderwerp dank alle voor mijn geduld ook weinig tijd gehad de afgelopen dagen voor de andere onderwerpen

 

[lsc.b]

Oke maar ik wil eigenlijk dat 1 pc eigenaar er wel in kan werken zonder wachtwoord

Beste Edmoor ik heb je code eens bekeken maar zoals ik het zie is mijn pagina beveiligt ( wat ik dus eigenlijk niet wil ) alleen voor andere moet het beveiligt zijn dus het account naam die ik in geef moet er in kunnen werken zonder dat het blad of een aantal cellen beveiligd zijn
#2 zou dan een manier zijn maar ik wil eigenlijk liever een code als dit mogelijk is #11 komt in de buurt lijkt me van wat ik zoek

 

[edmoor]

Mijn voorbeeld gaat er vanuit dat alle bladen beveilgd zijn.
Deze worden voor de opgegeven gebruiker automatisch vrijgegeven bij het openen van het bestand als je die code in de ThisWorkbook sectie zet.

 

[trainers]

Check deze eens en zet die naam dan in de code van edmoor:

Sub WhoIsWho()
    MsgBox Environ("Username")
End Sub

 

[edmoor]

En het leek me nog wel zo duidelijk dat je in mijn voorbeeld bij Environ("Username") = die "lsc.b" moet vervangen door de betreffende gebruikersnaam.

 

[lsc.b]

En het leek me nog wel zo duidelijk dat je in mijn voorbeeld bij Environ("Username") = die "lsc.b" moet vervangen door de betreffende gebruikersnaam.

klopt dit had ik gedaan maar bij mij lukt het op een 1 of andere manier niet
wat ik fout heb gedaan weet ik nog niet

 

[edmoor]

Zie de post van trainers in #15

 

[lsc.b]

wat ik ook doe en probeer mij lukt het niet wil je mee een voorbeeld bestand je willen sturen misschien dat ik het dan zie

 

[emields]

zou je niet beter terug overschakelen op papier en potlood?


Het is hier al op alle verschillende manieren uitgelegd en nog wil je het niet snappen.

Nu achter 24 jaar lidmaatschap vraag je of je een voorbeeldbestand mag sturen. al 24 jaar wordt er gevraagd in uw eerste post een voorbeeldbestandje te plaatsen.