SSブログ

LibreOffice CalcBasic シートの保護、選択範囲だけ入力出来るようにするマクロの実験 [LibreOffice Calc Basic]

LibreOffice CalcBasic シートの保護、選択範囲だけ入力出来るようにするマクロの実験

sheetProtect.png

選択範囲セル(背景色を設定)だけ入力出来るようにする。

はじめに、設定する範囲を選択しマクロを実行する。

cellUnProtect.png

マクロで保護するのチェックを外す。

 

 

Sub selectedCellOnly()
'選択範囲のみ入力できるようにするマクロ
'シート保護のパスワードは(Test)

Dim myProtection As New com.sun.star.util.CellProtection

'シート保護解除
    ThisComponent.CurrentController.activesheet.unprotect("Test")

'選択範囲のセルに背景色を設定
    ThisComponent.CurrentController.selection.CellBackColor =RGB(255,255,200)
'セルの保護を解除する
    myProtection.IsLocked=false
    ThisComponent.CurrentController.selection.CellProtection=myProtection
'シート保護
    ThisComponent.CurrentController.activesheet.protect("Test")
End Sub

 


nice!(9)  コメント(2)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 9

コメント 2

SWADWAY

Can I Have Alchohol With Keflex tynckivy https://acialisd.com/# - Cialis Pathsace Where Can I Get Suprax Issuelegem <a href=https://acialisd.com/#>buying cialis online safe</a> stoosyhoodia Erythromycin Price In Las Vegas
by SWADWAY (2020-07-09 21:20) 

ベーコンじいじ

キー記録でプロテクトを掛けるコードでは、パスワード入力画面が現れてストップし、困っていました。このページのおかげで幸甚です。
by ベーコンじいじ (2022-06-01 11:31) 

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

LibreOffice Calc Bas..kubuntu14.04 LTS をku.. ブログトップ


Linuxランキング

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。