タグ: work

AWSの課金が始まった。

無料試用期間一年経って、Amazon Web Servicesの課金がスタート。
で、トータル52ドルと15セント。
現在の契約はEC2、RDSともにmicroInstance。
5ドメインを運用している。

以下内訳。

AWS Service Charges $52.15
Data Transfer $0.34
Elastic Compute Cloud $20.65
RDS Service $24.97
Route 53 $2.53
Simple Notification Service $0.00
Simple Storage Service $0.01
CT to be collected $3.65
GST to be collected $0.00
US Sales Tax to be collected $0.00
VAT to be collected $0.00

正直やすいか高いか良うわからんね。

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 ～