Unprotect & Protect richtig setzen
03.08.2007 17:13:43
Heinz
Könnte mir Bitte jemand schreiben wo " ActiveSheet.Unprotect" & " ActiveSheet.Protect" gestzt gehört,das es funktioniert ?
Es sollte Blattschutz ohne "PW" aufheben, Werte kopieren, Blattschutz ohne PW setzen.
Danke & Gruß Heinz
Private Sub CommandButton7_Click()
Const ber = "B3:K13"
Dim i As Integer
i = Val(InputBox("Wo möchten sie die Werte eintragen ?"))
If i = 0 Then Exit Sub
If i 36 Then MsgBox "Die Meisterschaft hat nur 36 Runden !": Exit Sub
ActiveSheet.Range(ber).Copy
Sheets("R" & i).Range("B3:K13").PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub