[Risolto] Macro togli protezione in un range

[Barakkino]

Buongiorno,

Ho un foglio di Calc protetto ed una parte libera da scrittura (Foglio1.K9:Q15)

Mi spiego, devo copiare/incollare in questa area dati copiati dal sito dell' Agenzie delle Entrate. Il mio problema è che me li "trascino" con la protezione, quindi la volta successiva non è più possibile immettere nuovi dati. Devo intervenire manualmente togliendo la protezione.

Chiedo è possibile, una volta inseriti i nuovi dati, togliere la protezione solo in questa area?

Ho provato in tutti i modi con "incolla", "incolla speciale html" sempre protetto mentre con "incolla testo non formattato" mi si apre una nuova finestra di scelta che vorrei evitare.

GRAZIE

[Gaetanopr]

Codice: Seleziona tutto

Sub Main
Dim Rng As Object
Dim Sh As Object
Dim oPC As New "com.sun.star.util.CellProtection"

	Sh = ThisComponent.getSheets.getbyname("Foglio1")
	Rng = Sh.getCellRangeByName( "K9:Q15" )
	Sh.unProtect("")    ' eventuale password
	With oPC
		.IsLocked = False
	End With
	Rng.CellProtection = oPC
        Sh.Protect("")        ' eventuale password
End Sub

[Barakkino]

[charlie]

Sistema corretto per aggiungere ✔ [Risolto] viewtopic.php?f=2&t=5661

[Barakkino]

GRAZIE, dell'aiuto