In een beveiligde sheet wil ik dat gebruikers een afbeelding kunnen invoegen in bepaalde (samengevoegde) cellen.
Ik heb in de controle "objecten bewerken" aangevinkt, maar als de macro doorlopen wordt werkt het invoegen niet meer.
Hoe kan ik dit verhelpen? De macro ziet er als volgt uit:
Sub Auto_open()
Dim Ws As Worksheet
Set Ws = ActiveSheet
Sheets("Werkvergunning").Select
Dim ww As String
ww = "Winter2021"
Sheets("Werkvergunning").Unprotect Password:=ww
Range("AQ1").Value = Range("AQ1").Value + 1
Range("AM9").Value = Date
Sheets("Werkvergunning").Protect Password:=ww
ActiveWorkbook.Save
Dim NieuwWv As Variant
'kopiëren document als nieuwe werkvergunning
ActiveSheet.Copy
NieuwWv = "W:\Werkvergunningen\Werkvergunningen Afdeling 1/Werkvergunning Afdeling 1 " & Range("AQ1").Value & ".xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs NieuwWv, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End Sub
Ik heb in de controle "objecten bewerken" aangevinkt, maar als de macro doorlopen wordt werkt het invoegen niet meer.
Hoe kan ik dit verhelpen? De macro ziet er als volgt uit:
Sub Auto_open()
Dim Ws As Worksheet
Set Ws = ActiveSheet
Sheets("Werkvergunning").Select
Dim ww As String
ww = "Winter2021"
Sheets("Werkvergunning").Unprotect Password:=ww
Range("AQ1").Value = Range("AQ1").Value + 1
Range("AM9").Value = Date
Sheets("Werkvergunning").Protect Password:=ww
ActiveWorkbook.Save
Dim NieuwWv As Variant
'kopiëren document als nieuwe werkvergunning
ActiveSheet.Copy
NieuwWv = "W:\Werkvergunningen\Werkvergunningen Afdeling 1/Werkvergunning Afdeling 1 " & Range("AQ1").Value & ".xlsx"
Application.DisplayAlerts = False
ThisWorkbook.SaveAs NieuwWv, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
End Sub