タグ: howto

ExcelのVBAでシートを一括保護する。あと画像貼り付けは許可する

ExcelのVBAでシートを一括保護するしておくVBA。
あと画像貼り付けは許可したい場合は
DrawingObjects:=False
で描画オブジェクトのロックを外しておく。

Sub alllock() '全シート一括保護
Dim W As Worksheet
For Each W In Worksheets
W.Protect Password:="passwd", DrawingObjects:=False
Next W
End Sub

Sub allrelease() '全シート一括保護解除
Dim W As Worksheet
For Each W In Worksheets
W.Unprotect Password:="passwd"
Next W
End Sub

その他設定値は以下参照
http://www.officepro.jp/excelvba/sheet_ope/index2.html

はじめてのVBA ～

dreamhostのone-click installsにしてやられた

dreamhostのone-click installsはDBも一緒にセットアップしてくれる上、
アップデートも自動でしてくれるので頼もしいのだけど、
Dreamhostに設置しているCMSのインストールディレクトリを先日軒並み変更していたら、
当然のごとく自動アップデートは登録されたディレクトリに対してアップデートかけるわけで。

個人管理のサイトが軒並み初期化。

ということで、Dreamhostのone-click installされたリスト確認して
自動アップデートはNotifyだけにして、
今後は手動で。

dreamhost one-click installs
Dreamhost one-click instals

まあ、このリスト画面でインストール先変更とか出来ればええのやけど、
それはそれでまずいわな。

まあ、手動で戻せばいいのやけど、問題はそのもどさなならん数やな……

ほえほえ