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

Eintrag über Kontextmenü mit Blattschutz

Forumthread: Eintrag über Kontextmenü mit Blattschutz

Eintrag über Kontextmenü mit Blattschutz
05.07.2023 15:18:39
Micha

Hallo
Ich habe ein neues Kontext-Menü erstellt. Jetzt komm ich nicht mehr weiter. Wenn ich was in das Blatt eintrage soll der Blattschutz Deaktiviert werden und danach wieder Aktiviert werden. Komme da nicht mehr weiter.

Mfg Micha

https://www.herber.de/bbs/user/159810.xlsm

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eintrag über Kontextmenü mit Blattschutz
05.07.2023 16:18:23
Piet
Hallo

setzte direkt hinter 
Sub den Befehl: - AktiveSheet.Unprotect - und vor End 
Sub - ActiveSheet.Protect
Für diese VBA Methode benötigst du kein Passwort, kannst aber bei beiden ein Passwort setzen:
AktiveSheet.Unprotect -"Mein Passwort"

mfg Piet
Anzeige
AW: Eintrag über Kontextmenü mit Blattschutz
05.07.2023 16:26:15
Micha
Vielen dank für deine Antwort.
Ich bekomme eine Fehlermeldun wenn ich das eintrage.

'Bereich für Rechte Maustaste
Sub eintrag(ByVal str As String)
AktiveSheet.Unprotect
Dim rng As Range, strRange As String

Select Case ActiveSheet.Name
 
    Case "Tabelle1"
        strRange1 = "D6:AA49" 'Bereich für Tabelle1
        strRange2 = "AB665:AY49"
 
    
   
End Select
For Each rng In Selection
    If Not Union(Range(strRange1), Range(strRange2), Range(strRange2)) Is Nothing Then
        rng = UCase(str)
    End If
Next
AktiveSheet.Unprotect
End Sub


Anzeige
AW: Eintrag über Kontextmenü mit Blattschutz
05.07.2023 19:40:43
Piet
Hallo

der Hauptfehler lag in der falschen Schreibweise - ActiveSheet:Protect mit k statt c!
Vielleicht kann man den Code auch kürzer programmieren. Ohne Gewähr das es so richtig ist!
Ich nehme lieber IF Then Statt Select Case für die Sheet Auswahl. Ist kürzer zu programmieren.

mfg Piet

  • Sub eintrag(ByVal str As String)
Dim strRange1 As String, strRange2 As String, rng As Range
If ActiveSheet.Name > "Tabelle1" Then Exit Sub
   ActiveSheet.Unprotect
   strRange1 = "D6:AA49"     'Bereich für Tabelle1
   strRange2 = "AB665:AY49"
   If Not Union(Range(strRange1), Range(strRange2)) Is Nothing Then
      Selection.Value = UCase(str)
   End If
   ActiveSheet.Protect
End Sub


    • Anzeige
    ;

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige