Dag allen,
ik ben bezig met een rapportage die gebruik maakt van een Excel-addin. Deze addin haalt gegevens van onze sql-server. Om te voorkomen dat gebruikers de rapportage vernaggelen wil ik de rapportage beveiligen maar dat ze tegelijk de addin kunnen gebruiken. Echter kan de addin niet gebruikt worden (vernieuwen van gegevens) wanneer de sheets beveiligd zijn. Daarom is het nodig dat er een knop komt die het volgende uitvoert: unprotect -> run addin -> protect.
Ik ben zelf tot de volgende VBACode gekomen, alleen werkt hij niet. Hebben jullie een oplossing? Bij voorbaat dank!
Sub RefreshJet()
ActiveWorkbook.Unprotect
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Unprotect
Next wsheet
'Refresh Jet addin
Application.Run "JetReports.xlam!JetMenu", "Refresh"
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect
Next wsheet
ActiveWorkbook.Protect
End Sub
ik ben bezig met een rapportage die gebruik maakt van een Excel-addin. Deze addin haalt gegevens van onze sql-server. Om te voorkomen dat gebruikers de rapportage vernaggelen wil ik de rapportage beveiligen maar dat ze tegelijk de addin kunnen gebruiken. Echter kan de addin niet gebruikt worden (vernieuwen van gegevens) wanneer de sheets beveiligd zijn. Daarom is het nodig dat er een knop komt die het volgende uitvoert: unprotect -> run addin -> protect.
Ik ben zelf tot de volgende VBACode gekomen, alleen werkt hij niet. Hebben jullie een oplossing? Bij voorbaat dank!
Sub RefreshJet()
ActiveWorkbook.Unprotect
Dim wsheet As Worksheet
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Unprotect
Next wsheet
'Refresh Jet addin
Application.Run "JetReports.xlam!JetMenu", "Refresh"
For Each wsheet In ActiveWorkbook.Worksheets
wsheet.Protect
Next wsheet
ActiveWorkbook.Protect
End Sub