Beskyttelse af Data træk via ODBC

Det med at gemme adgangskoden, er kun hvis der skal bruges adgangskode for at få adgang til data (kode til databasen) - du kan derfor ikke bruge det til noget i denne sammenhæng

Det eneste du umiddelbart kan gøre er sætte beskyttelse på dit ark (Funktioner -> Beskyttelse -> Beskyt ark) - desværre betyder det så at man ikke kan opdatere trækket! Derfor bliver du nød til lidt VBA:

Sub Update()

Dim ws As Worksheet
Set ws = ActiveSheet

Sheets("Inddata").Select
ActiveSheet.Unprotect
   
    Range("A2").Select ' En celle som indgår i det område der skal opdateres
    Selection.QueryTable.Refresh BackgroundQuery:=False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ws.Select

End Sub

hvor Inddata er den fane der skal opdateres!

Hvad blev status?

Beklager jeg ikke har fået svaret på denne her. Jeg kom væk fra projektet og skal nu igen til at kigge på opgaven.

Jeg vil prøve din kode senere.
Jeg har arbejdet lidt med muligheden for at beskytte data som du beskriver ovenfor via Beskyttelse.

Kast et svar så får du points, spørgsmålet har efterhånden stået åbent ret længe beklager.

Smider gerne et svar - du må gerne vende tilbage hvis ikke det lykkes

Ok takker.