Option Explicit
Sub Bsp()
HideSelect Tabelle1
HideSelect Worksheets("Tabelle3")
End Sub
Public Sub HideSelect(Optional ByVal Worksheet As Excel.Worksheet)
If Worksheet Is Nothing Then
Set Worksheet = ActiveSheet
End If
Worksheet.EnableSelection = xlNoSelection
Worksheet.Protect Password:="123"
End Sub
Public Sub ShowSelect(Optional ByVal Worksheet As Excel.Worksheet)
If Worksheet Is Nothing Then
Set Worksheet = ActiveSheet
End If
Worksheet.EnableSelection = xlNoRestrictions
Worksheet.Unprotect Password:="123"
End Sub