auf meinem Rechner fuktioniert dieses Makro.
Gebe ich die Datei Weiter erscheint eine Fehlermeldung.(Laufzeitfehler 13)
Private Sub Worksheet_Activate()
ActiveWorkbook.Unprotect Password:="xxx"
If Range("iu1") > 0 Then
ActiveSheet.name = Range("iu1")
Else
ActiveSheet.name = "2"
End If
Dim name
name = Application.UserName
If name = Application.UserName Or name = "HHH" Then
Else
MsgBox "Sie haben keine Berechtigung für diese Seite"
Sheets("Urlaubsplanung").Select
End If
ActiveWorkbook.Protect Password:="xxx"
End Sub
Wer kann helfen.
Gruss Peter