Ergebnis 1 bis 4 von 4
  1. #1
    Office-Hilfe.com - Neuling
    Registriert seit
    01.02.2017
    Beiträge
    4

    VBA: Erstellen/Editieren/Löschen von Kommentaren per VBA erlauben.

    Hallo.

    Bislang habe ich meine Tabellenblätter per VBA automatisch geschützt, da dies ganz gerne vergessen wird.

    Folgene Routine habe ich dafür verwendet:
    (Auskommentiert derzeit)

    'Sub Workbook_Open()
    ' Dim i As Long
    ' For i = 1 To Worksheets.Count
    ' 'Sheets(i).Protect userinterfaceonly:=True
    ' Sheets(i).EnableOutlining = True
    ' Sheets(i).EnableAutoFilter = True
    ' Next i
    'End Sub

    Ich hätte eigentlich gerne, dass Blätter automatisch mit folgenden Einstellungen gesperrt werden : "Nicht gesperrte Zellen auswählen", "Objekte bearbeiten". Filtern und Gruppieren soll möglich sein.

    Formatieren, hinzufügen, löschen von Zellen/Spalten usw soll nicht möglich sein.

    Ich habe es mit

    ' 'Sheets(i).Protect userinterfaceonly:=True, DrawingObjects:=True

    versucht - hat aber nicht geklappt.

    Kennt jemand eine Lösung dazu?

    Bonusfrage: Kann man beim Öffnen ENTWEDER automatisch "Inhalte aktivieren" oder das bearbeiten unmöglich machen, bzw. Excel wieder beenden, wenn dies nicht geschieht? Das wird nämlich ganz gerne vergessen.

    Vielen Dank für eure Zeit.

  2. #2
    MVP für Microsoft Excel Avatar von maninweb
    Registriert seit
    03.05.2008
    Ort
    Aachen
    Beiträge
    388
    Hallo,

    schau' Dir mal bei der Protect-Methode die weiteren Parameter an (VBA-Hilfe, Objektkatalog). Dort sind alle möglichen Optionen aufgeführt, z.B. AllowFormattingCells. Und, solange Makros nicht aktiviert sind werden auch keine ausgeführt, wenn sich die Meldung darauf bezieht. Also, dann auch kein Schließen von Excel.

    Gruß

  3. #3
    Office-Hilfe.com - Erfahrener
    Registriert seit
    29.12.2015
    Beiträge
    94
    Moin!
    Wenn Du etwas zulassen willst, ist das im Sprachgebrauch WAHR
    Wenn Du etwas NICHT schützen willst, ist dies FALSCH
    Langer Rede …
    Sheets(i).Protect userinterfaceonly:=True, DrawingObjects:=False

    Gruß Ralf

  4. #4
    Office-Hilfe.com - Neuling
    Registriert seit
    01.02.2017
    Beiträge
    4
    Zitat Zitat von RPP63 Beitrag anzeigen
    Moin!
    Wenn Du etwas zulassen willst, ist das im Sprachgebrauch WAHR
    Wenn Du etwas NICHT schützen willst, ist dies FALSCH
    Langer Rede …
    Sheets(i).Protect userinterfaceonly:=True, DrawingObjects:=False

    Gruß Ralf
    Vielen Dank, Ralf, auf die Idee bin ich natürlich nicht gekommen.. .-)

    So oder so, dies war die Lösung.

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
Excel Ticker - News, Tipps und Tricks zu Microsoft Excel | SMS kostenlos versenden | Forenuser - Die Foren Findmaschine