Macro vraag

[s0me0neelse]

Hoi,

een vraag over mijn in gebruik zijnde macro waarvan de bedoeling is sheets te beveiligen en de
optie kommentaren aan cellen toe te voegen toe te staan.
Helaas werkt alleen het beveiligen, na het beveiligen kan ik geen kommentaar aan een cel toevoegen.
Ik heb deze macro dankzij dit forum gekregen, helaas kan ik zelf geen macro's aanpassen en hoop dat
iemand de code wil/kan aanpassen zodat het wel werkt !

Sub Protectsheets()
'
' Protectsheets Makro
' Alle sheets beveiligen met objekt bewerking mogelijk
'
' Tastenkombination: Strg+Umschalt+P
'
    Sheets("18").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True
End Sub

 

[edmoor]

Werkt bij mij prima zo:

Sub Protectsheets()
[COLOR="#008000"]'
' Protectsheets Makro
' Alle sheets beveiligen met objekt bewerking mogelijk
'
' Tastenkombination: Strg+Umschalt+P
'[/COLOR]
    Sheets("18").Protect DrawingObjects:=False, Contents:=True, Scenarios:=True
End Sub

 

[s0me0neelse]

hoi edmoor,

sorry, informatie was inkompleet.
Wanneer ik de combi ctrl-shift-P gebruik op een geopend workbook kan ik idd kommentaren aan cellen toevoegen.
Op het moment dat ik excel afsluit en het workbook save en daarna weer open is het toevoegen niet meer mogelijk,
ik moet dan ctrl-shift-p toepassen op een geopend workbook en dat vind ik vreemd, dan kan ik ook ctrl-shift-u "unlock"
toepassen.

Ik wil graag het workbook openen, de formules beveiligd houden, maar kommentaren kunnen toevoegen en de
macro ctrl-shift-p en ctrl-shift-u alleen gebruken wanneer ik formules wil aanpassen.

 

[edmoor]

Ik heb het niet over de toetscombinaties, wat dat gebruik ik nooit.
Als ik het werkblad beveilig op de manier zoals ik plaatste kan ik deze na Excel afgesloten te hebben en het document weer geopend, prima commentaar aan de cellen toevoegen.
En dat was je vraag.

 

[s0me0neelse]

kan het aan een andere macro liggen dat dat bij mij niet werkt ?

 

[edmoor]

Met welke versie van Office werk je?
Plaats dat document hier eens.

 

[s0me0neelse]

Office 2010, dit vanwege het in 1 fenster kunnen openen van meerdere workbooks

Sub Formelnschuetzen()
'
' Formelnschuetzen Makro
'
' Tastenkombination: Strg+Umschalt+S
'
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("W17").Select
    Sheets("19").Select
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("T17").Select
    Sheets("20").Select
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("U20").Select
    Sheets("30").Select
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = False
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("T14").Select
End Sub

---------

Sub M_snb()
  ActiveSheet.Columns.Hidden = 0
End Sub

--------

Sub Validatie()
'
' Validatie Macro
'
' Sneltoets: Ctrl+Shift+V
'
    Selection.SpecialCells(xlCellTypeFormulas, 23).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="="""""
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
    Range("T10").Select
End Sub

 

[edmoor]

Dat ga ik allemaal niet proberen, daarom vroeg ik je het document te plaatsen.
Neem anders de code die ik plaatste op in de Workbook_open.

 

[s0me0neelse]

Ik kan helaas m'n workbook niet hier openbaar voor download vrijgeven, het bevat al m'n persoonlijke informatie en meer !
Hoe kan ik jouw macro opnemen in workbook open ?
Ik zie nergens een macro met die naam

 

[edmoor]

Zo:

 

[s0me0neelse]

Ik heb het gevonden en aangepast, werkt 100%

Dankjewel edmoor