AW: Sheets - Mehrfachauswahl - Anzahl ermitteln
16.04.2014 15:03:03
Peter
Hallo Hansueli
Danke für die Lösung, das hilft weiter.
Mit dem Passwort setzen über alle Tabellenblätter klappt es mit nachfolgendem Code nur, wenn ich keine Mehrfachselektion habe. Wenn das anders geht, wäre ich interessiert daran, das zu wissen.
Gruss, Peter
Sub ATabellenschutz_aktivieren_alle()
Application.ScreenUpdating = False
stractivesheet = ActiveSheet.Name
ActiveCell.Activate
stractivecell = Selection.Address
' mit userinterfaceOnly:=True wird bewirkt, dass Markros auch in geschützten Tabellen laufen,
' d.h. sie müssen nicht bei jeder Routine entschützt werden
Dim intTabz As Integer, i As Integer, intTabVisible1 As Integer, oSelSh As Object
Set oSelSh = ActiveWindow.SelectedSheets
'Debug.Print oSelSh.Count
oSelSh(1).Select
Passwort_Abfragen
intTabz = ActiveWorkbook.Worksheets.Count
For i = 1 To intTabz
Sheets(i).Protect DrawingObjects:=True, _
contents:=True, _
UserInterfaceOnly:=True, _
Scenarios:=True, Password:=strpasswort & "!!"
Sheets(i).EnableSelection = xlNoRestrictions
Next i
oSelSh.Select
Sheets(stractivesheet).Activate
Range(stractivecell).Activate
Application.ScreenUpdating = True
End Sub