Kein Zugriff zur Tabelle
pHILLIPP
ich möchte gern beim anklicken der Tabelle, dass man eine Information
erhält, kein Zugang.
Leider wird mit dem Makro unten, dennoch die Tabelle eingeblendet und geht
dann wieder zur Eingang Tabelle.
Private Sub Worksheet_Activate()
If IstBerechtigtSchutz Then
Sheets("Lager").Select
Range("A4").Select
Else
Application.ScreenUpdating = False
Sheets("Eingang").Select
MsgBox "Sie haben keine Berechtigung für diese Tabelle ! " & Chr(13) _
& Chr(13), 48, " Hinweis !"
Application.ScreenUpdating = True
End If
'Application.ScreenUpdating = False
'Application.Calculation = xlCalculationManual
'Application.Calculation = xlCalculationAutomatic
'ActiveSheet.Unprotect (getStrPasswort)
End Sub