Bereich/ Zellen sperren oder schreibschützen
13.12.2012 13:53:01
Wilson
ich brauche mal wieder eure Hilfe!
Ich habe einige Tabellen in einer Excel-Mappe erstellt und lagere diese per Knopfdruck aus. Diese Tabellen die ich auslagere, wollte ich nun schreibschützen im Bereich von Zeile 4: bis xlEnd. Bisher habe ich es leider nur mit einer Zelle hinbekommen.
Habe einige Sachen bereits probiert aber leider kriege ich das nicht hin und meine VBA- Kenntnisse sind nicht so gut. Wollte diesen Schreibschutz in die gleiche Funktion schreiben, wie das Auslagern.
Mein Code zur Funktion "Auslagern" ist:
Sub fktDatenAuslagern()
Dim sCode As String
Dim Modul
'Erstellen der Lesedaten
If ActiveWorkbook.Sheets.Count > 2 Then
ActiveWorkbook.Sheets.Copy
ActiveWorkbook.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'Wie kriege ich es hier jetzt hin einen definierten Bereich zu wählen welcher geschützt _
werden soll. Bisher nur mit einer Zelle hinbekommen.
'Range("A4").Select
Set Modul = Application.VBE.ActiveVBProject.VBComponents.Add(1)
Modul.Name = "Modul_" & Format(Now, "ddmmmyyyy")
Else
MsgBox "Daten können nicht ausgelagert werden.", vbExclamation, "Fehler"
End If
End Sub
Schon vorab vielen Dank.
Viele Grüße
Wilson
Anzeige