Anzeige
Archiv - Navigation
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro ausführen mit Blattschutz auf Tabelle 2

Makro ausführen mit Blattschutz auf Tabelle 2
28.02.2008 11:42:00
alex
Hallo leute,
Hier ist ein Teilbereich meines Makros, das in Tabelle 1 steht:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Zahl As Integer
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "red13"
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName
'usw.
End Sub


In der letzten hier aufgeführten Zeile müsste noch eingefügt werden, das das Blatt "Bearbeiternachweis" (Tabelle 2) für den Zeitraum der Eintragung kurz entsperrt wird und dann wieder gesperrt wird, da ich das Blatt mit Schreibschutzkennwort versehen will.
Wie muss ich das schreiben?
mit dankendem gruß
alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausführen mit Blattschutz auf Tabelle 2
28.02.2008 11:49:05
Oberschlumpf
Hi alex
Versuch es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim Zahl As Integer
If Target.Count > 1 Then Exit Sub
ActiveSheet.Unprotect "red13"
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").UnProtect "DeinPasswort"
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName
Sheets("Bearbeiternachweis").Protect "DeinPasswort"
'usw.
End Sub


Hilft das?
Ciao
Thorsten

Anzeige
Erledigt
28.02.2008 12:40:00
alex
hi Thorsten,
dat hilft!
Konnte bisher keine Komplikationen feststellen (als Leie).
Auf jeden Fall funktionierts, und das ist wichtig.
mit herzl. Dank
alex

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige