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
Ich hoffe ich konnte euch erklären was ich machen will und dass ihr mir bei meinem Vorhaben wie bisher auch immer helfen werdet.Schon vorab vielen Dank.
Viele Grüße
Wilson