Makro sofort ausführen
15.01.2010 09:31:27
Heinz H
Hallo Leute, Heute zum 2.ten mal
Ich habe Im Modul einen Code der Blattschutz unter gewissen Bedinungen setzt.
Der Funktioniert auch.
In der UF wird ein neues Tab.Blatt erzeugt.
Kann mann den Code von "Sub Blattschutz" gleich ausführen in der UF
Mit
Call Blattschutz (True)
Gruß
Heinz
In der UF
Private Sub cmdUebertragen_Click()
Call WochenendeWeg(True)
With ActiveWorkbook.VBProject
.VBComponents.Remove .VBComponents("frmTextUebertragen")
.VBComponents.Remove .VBComponents("basMain")
End With
ActiveWorkbook.SaveAs ThisWorkbook.Path & "/" & "Vorlage Stundenaufzeichnung " & Range("B3") _
& ".xls"
ActiveSheet.Shapes(Application.Caller).Delete 'Löscht den Button Neues Personalblatt _
erstellen
Unload Me
ActiveSheet.Protect Password:="Test"
End Sub
Im Modul
Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect Password:="Test"
For i = 6 To 35
Range("A" & i & ":O" & i).Locked = False
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
_
Value) = 1 Then
Range("A" & i & ":O" & i).Locked = True
End If
Range("A:B,G:K,M:CC").Locked = True
Next
ActiveSheet.Protect Password:="Test", DrawingObjects:=True, Contents:=True, Scenarios:= _
True
End Sub