VBA Blattschutz abhängig vom Windows-Benutzername
01.12.2014 16:08:19
Hans
ich habe nachfolgenden Code auf vba1.de gefunden.
Der Code soll dafür sorgen, dass nur bestimmte Leute Zugriff auf die Tabellen haben; für alle anderen sollen diese per Blattschutz gesperrt sein.
Meine Version mag aber die Declare Function nicht.
Kann man das anpassen?
Private Sub Workbook_Open()
Call UserName
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call Blattschutz_alle_Tabellen
End Sub
Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
'Windows Benutzernamen hier anpassen
If Left(Buffer, BuffLen - 1) = "Hugo" Then
Call Blattschutz_alle_Tabellen_aufheben
End If
End Sub Sub Blattschutz_alle_Tabellen_aufheben()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Unprotect Password:="blau"
Next i
End Sub Sub Blattschutz_alle_Tabellen()
Dim i As Worksheet
For Each i In ActiveWorkbook.Worksheets
i.Protect Password:="blau"
Next i
End Sub
Gruß Hans