Salve ho il seguente problema.
Da access esporto dei dati numerici su un foglio excel e fin qui tutto ok, il problema sovviene quando proteggo le celle e NON il FOGLIO, quindi non mi chiede la password all'apertura del file ma quando cerco di digitare qualcosa nelle celle bloccate mi dice che è protetto. Il fatto è che con la funzione Workbooks.Open non riesco a passargli la password, ho provato con Workbooks.Open("JURI.xls",,,,,"xxxx") ma non succede niente eppure corrisponde a writerespassword
GRAZIE![]()
![]()
![]()
Questo è il mio codice:
Private Sub Comando8_Click()
Dim rs As DAO.Recordset
Dim ex As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim i As Integer
Dim giorno As Integer
'apre excel
Set ex = New Excel.Application
ex.Visible = True 'metti false se non vuoi vedere excel a video
'apre il file xls
Set wb = ex.Workbooks.Open("JURI.xls")
Set rs = CurrentDb.OpenRecordset("Q_Tot21", DAO.dbOpenDynaset)
'loop sui record
Do Until rs.EOF
'aggiorna un contatore
'i = i + 1
i = 5 ' i è impostata su 5 perchè nel foglio excel il campo da riempire è la riga 5
giorno = Day(Date) + 1 ' restituisce il giorno del mese, aggiungo +1 perchè la prima colonna e di intestazioni
'imposta la colonna A per la riga = i
'ws.Cells(i, 1) = rs("Articolo")
'ws.Cells(i, 2) = rs("Descrizione")
ws.Cells(i, giorno) = rs("SommaDiQuantita")
'prossimo record
rs.MoveNext
Loop
'chiude recordset
rs.Close
'salva file
wb.Save
'chiude file
wb.Close
'esce da excel
ex.Quit
'cancella variabili oggetto
Set rs = Nothing
Set ex = Nothing
Set wb = Nothing
Set ws = Nothing
End Sub